5 V=53248:PRINT"[147]"
10 FOR I=0TO62:READA:POKE832+I,A:NEXT
30 POKE2040,13:POKEV+21,1
40 POKEV,24
50 FORI=39TO150
55 POKEV+1,I
60 FORK=0TO10:NEXT K
70 NEXT I
80 FORI=24TO255:POKEV,I
90 FORK=0TO1:NEXTK
95 NEXT I
96 POKEV+21,0
100 DATA 0,0,0,0,24,0,0,126,0
110 DATA 1,255,128,7,255,224,30,102,120
120 DATA 54,102,108,54,102,108,31,255,248
130 DATA 7,255,224,1,255,128,1,129,128
140 DATA 3,0,192,3,0,192,6,0,96
150 DATA 6,0,96,12,0,48,127,0,255
160 DATA 0,0,0,0,0,0,0,0,0